home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
UTILITY1
/
MONTOR.ZIP
/
MONSRC.ZIP
/
DISKDLL.PAS
next >
Wrap
Pascal/Delphi Source File
|
1993-08-14
|
376b
|
20 lines
LIBRARY DiskDll;
USES WinDos;
{$D Copyright (c) 1993 by Neil J. Rubenking}
FUNCTION GetDiskSize(Drive : Word) : LongInt; Export;
BEGIN
GetDiskSize := DiskSize(Drive);
END;
FUNCTION GetDiskFree(Drive : Word) : LongInt; Export;
BEGIN
GetDiskFree := DiskFree(Drive);
END;
EXPORTS
GetDiskSize INDEX 1,
GetDiskFree INDEX 2;
BEGIN
END.